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16-SEP-1984 02:0 AX/VM cro V04-00 
6-SEP-1984 94: 06:38 PLIRTL.S REIP LIVECTOR.MAR; 1 
title pli$rt_transfer_vector 
-ident /1-0037 ; Edit CGN1003 


> Edit WHM1002 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED 


THIS SOFTWARE aS FURNISHED UNDER A LICENSE AND MAY BE USED AND ores 
ONLY IN oer ANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION 0 FoTHE ABOVE S goth od NOTICE. THIS SOF TW ARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Varneschatee NO rite TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC 
eeRPORAT Ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMEN 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Author: Bill Matthews 1982 
Note that any additional tranfer vectors MUST be added to the end. 


modified: 


1-002 Bill Matthews 29-September-1982 


Added definitions and use of call_transfer_vector and 
hae transfer_vector macros. 


Page 
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aded we of pli_vl_read_only_data and pli_v2_read_only_data 


Added transfer vector for pli$allocation for the PL/I runtime 


support for the allocation builtin function. 
1-003 Chip Nylander 27-December-1982 


Added transfer vector for pli$search for the PL/I runtime 
support for the search builtin function 


; local macros 


-macro call_transfer_vector,destination 
. transfer destination 

:mask destination 

jmp *destination'’+2 

-endm call_transfer_vector 


macro jsb_transfer_vector,destination 
. transfer destination 


1 
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See 188s PEiSBSE PONINRS Sacre Oe mart 2% 69) 
jmp destination 
-endm jsb_transfer_vector 


pli$rt_ ony ag + vector: 

all_transfer_vector 
cally “transfer_vector 
call“transfer_vector 
call“transfer_vector 
call_transfer_vector 
call-transfer_vector 
call-transfer_vector 
call-transfer_vector 
call-transfer_vector 
call“transfer_vector 
call-transfer_vector 
call_transfer_vector 
call“transfer_vector 
call-transfer_vector 
call_transfer_vector 
call-transfer_vector 
call_transfer_vector 
call_transfer_vector 
call_transfer_vector 
call-transfer_vector 
call_transfer_vector 
call-transfer_vector 
call_transfer_vector 
call“transfer_vector 
call-transfer_vector 
call-transfer_vector 
call_transfer_vector 
call_transfer_vector 
call_transfer_vector 
call_transfer_vector 
call-transfer_vector 
call_transfer_vector 
call“transfer_vector 
call“transfer_vector 
call=transfer_vector 
calle _transfer_vector 

all“transfer_vector 
cail™ transfer_vector 
call-transfer_vector 
cell-transfer_vector 
call“transfer_vector 
call“transfer_vector 
call“transfer_vector 
call“transfer_vector 
call“transfer_vector 
call“transfer_vector 
call“transfer_vector 


= § QOODODOOO0O OOOO OO OOOO 0909 09 00 09 09 C9 09 09 SI INI NSIS NS NIA AAPA OAAAOUM 
PWN = OOD NAU SEWN 9 OD NA UNE WN OS OD NAW EWN OC OD NOA UE WN OOONOA UE WOO 


; The PL/I Runtime transfer vectors for PLIRTL.EXE 


-psect $$pli_rt_transfer_vector,rd,nowrt,exe,shr,pic,long 
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cmpbit 
indexbit 
i$movtranchar 
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| PLISRT_TRANSFER_VECTOR 16-SEP-1984 02:08:38 VAX/VMS Macro v04-00 Page 3 Pl 
+008 aes 04:08: 38 UPLIRTL. SREIPLIVECTOR MAR: 1 . (1) S' 
178 «115 call_transfer_vector pli$fixbchar_r6 $ 
18 118 call-transfer_vector  pli$fixbvcha_r6 $ 
1 11 call-transfer_vector pli$fixbabit_ré A 
19 118 call-transfer_vector pliS$fixbbit_r6 A 
019 119 call-transfer_vector pli$fixdpic_ré A 
gy 120 call"transfer_vector pli$fixdfixB_ré6 A 
O1A 121 call-transfer_vector pli$fixdfltb_ré A 
0180 = 1 ¢ call“transfer_vector pli$fixdfixd_ré6 A 
0188 = call"transfer_vector pli$fixdfltd_ré6 A 
Bice 124 call“transfer_vector pli$fixdchar_ré A 
O1C 125 call-transfer_vector pli$fixdvcha_ré A 
108 16 call“transfer_vector pli$fixdabit_ré6 A 
1D 127 call-transfer_vector pli$fixdbit_r6 A 
QO1EO0 128 call-transfer_vector pli$fltdpic ré A 
O1E8 192 cart “transfer_vector pli$fltdfixB_ré6 A 
O1FO 8=130 all-transfer_vector pli$fltdfltb_r6 D 
O1F8 131 calle _transfer_vector pli$fltdfixd_ré D 
0200 136 call_transfer_vector pli$fltdfitd_ré Fi 
0208 13 call_transfer_vector pli$fltdchar_ré Fi 
0210 134 call“transfer_vector pli$fltdvcha_ré Fi 
0218 135 call"transfer_vector pli$fltdbit_ré FI 
0220 136 call-transfer_vector pli$fltdabit_ré FI 
0228 137 call“transfer_vector pli$charpic_76 FI 
0230 138 call“transfer_vector pli$charfixB_r6é FI 
0238 139 call“transfer_vector pli$charfltb_ré FI 
0240 140 call_transfer_vector pli$charfixd_ré FI 
0248 141 call-transfer_vector pli$charfltd_r6 FI 
0250 142 call“transfer_vector pli$fchrfltd_ré FI 
0258 143 call“transfer_vector pli$charchar_ré F 
0260 144 call“transfer_vector pli$charvcha_ré Ft 
0268 145 call_transfer_vector pli$charabit_ré FI 
0270 146 call_transfer_vector pli$charbit_r6 Ft 
0278 147 call“transfer_vector pli$vchapic ré6 Ft 
0280 148 call“transfer_vector pli$vchafixb_ré Fi 
0288 149 call_transfer_vector pli$vchafltb_ré F( 
0290 150 call“transfer_vector pli$vchafixd_ré F( 
0298 151 call“transfer_vector pli$vchafltd-ré6 Fi 
O2A0 152 call“transfer_vector pli$vchavcha_ré Fi 
O2A8 153 call“transfer_vector pli$vchachar_ré FI 
02B0 154 call_transfer_vector pli$vchaabit_ré FI 
0288 155 call“transfer_vector pli$vchabit_ré Fi 
02C0 156 call-transfer_vector pli$bitpicr F( 
02c8 38157 call“transfer_vector pli$bitfixb_ré FI 
ft 158 call“transfer_vector pli$bitfltb_ré Fi 
02D 159 call-transfer_vector pli$bitfixd_ré Fi 
O2E0 160 call“transfer_vector pli$bitfltd_ré Ft 
Ose R 161 call"transfer_vector pli$bitchar_ré F 
0 4" 196 call“transfer_vector pliSbitvcha_r6 FI 
og 16 call-transfer_vector pli$bitbit_ré6 F 
0300 164 call-transfer_vector pli$bitabif_ré FI 
0308 165 call-transfer_vector pli$abitpic ré6 Fi 
0310 166 call“transfer_vector pliSabitfixb_r6 Fi 
0318 167 call“transfer_vector pliSabitfltb_ré FI 
3 3 168 call-transfer_vector pliSabitfixd ré6 FI 
3 169 call“transfer_vector pli$abitfltd_ré FI 
3 9 170 call“transfer_vector pli$abitchar_r F 
33 171 call“transfer_vector pli$abitvcha_ré F 
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16-SEP-1984 02:0 
6-SEP=1 198 oF 5 
call _transfer_vector i$abitbit_ré 
call“transfer_vector i$abitabit_ré6 
call_transfer_vector i$cvt_to_pic 
call-transfer_vector iScvt_fr_pic 
call“transfer_vector i$valTd_pic 
call-transfer_vector i$date 
call“transfer_vector iStime 
call-transfer_vector i$alocheep 
call=transfer_vector ig scoeneee 
call-transfer_vector iSdiv_pk_ ~~ 
call-transfer_vector i$div_pkShor 
call“transfer_vector i$display 
call-transfer_vector i$extend 
call-ctransfer_vector i$flush 
call-transfer_vector i$next_volume 
call-transfer_vector i$rewind 
call-transfer_vector jeopeceutacn 
call-transfer_vector i$close 
call-transfer_vector i$delete 
call-transfer_vector i$Sopen 
call-transfer_vector i$read 
call-transfer_vector i$rewrite 
call_transfer_vector i$write 
sb_transfer_vVector i$nonloc_ret 
sb_transfer_vector i$optmain_ret 
sb_transfer_vector i$nonloc_goto 
sb_transfer_vector i$goto 
sb_transfer_vector i$rvrt_cnd 
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vector 
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vector 
vector 
vector 
vector 
vector 
vector 
vector 
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vector 
vector 
vector 
vector 
vector 
vector 
vector 
vector 


sb_transfer 
sb_transfer 
sb_transfer 
sb_transfer 
sb_transfer 
sb_transfer 
sb_transfer 
sb_transfer 
sb_transfer 
sb_transfer 
sb_transfer 
sb_transfer 
sb_transfer 
sb_transfer 
sb_transfer 
sb_transfer 
sb_transfer 
sb_transfer 
sb_transfer 
sb_transfer 
sb_transfer 
sb_transfer 
sb_transfer 
sb_transfer 
sb_transfer 
sb_transfer 
sb_transfer 
sb_transfer 
jsb_transfer 


i$bound_check 
iSoptionsmain 
i$lLink_fcb 

i$getstrng_ré6 
i$putstrng_ré6 
i$getechar_ré6 
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: Define the PL/I V2 Runtime transfer vectors 


call_transfer_vector pli$allocation 
call_transfer_vector pli$search 


: Define the PL/I V2 Runtime read-only data 
: pli_v2_read_only_data 


mM 2 
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4C4 + sb_transfer_vector pli$putefixb_ré6 
4CA 0 sb_transfer_vector pli$putefixd_r6 
400 1 sb_transfer_vector pli$putefltb_ré6 
406 ¢ sb_transfer_vector pli$putefltd_ré 

04D sb_transfer_vector pli$putepic_ré 

O4E 4 sb_transfer_vector pliS$putfile_ré 

O4E 5 sb_transfer_vector pli$putlchar_ré 

Reet $$ sb_transfer_vector pli$putlvcha_ré 
4F4 3 sb_transfer_vector pli$putlbit_r 

O4FA 38 sb_transfer_vector pli$put labit_ré 

0500 39 sb_transfer_vector pli$putlfixb_ré 

Bee seo sb_transfer_vector pli$putlfixd_r6 
50C 41 sb_transfer_vector pli$putlfltb_r6 

bai¢ stg sb_transfer_vector pli$putlfltd_ré 

051 4 sb_transfer_vector pli$putlpic_ré 
OSIE ste 

OS1E 45 ; 

OS1E 246 ; Define the PL/I V1 Runtime read-only data 
OS1E 247 ; , 

OS1E 248 pli_vl_read_only_data 

poss 249 

062 250 

0622 $2) 

0622 26 

0622 25 

0 $f 254 

0632 255 

0632 $28 

0632 57 

0632 258 

O6F2 259 

06F2 260 


AAPAAAAAOOO 


.end 


mre iT 


6 
(1) 


Page 


owt i Macro V04-00 
PLIRTL.SRCIJPLIVECTOR.MAR; 1 


LISRT_TRANSFER_VECTOR 
| Symbol table 


| 


mel me me ee oe nel el el el el el el el eel el eel el el i pect see me ee eh pe pee eh see pe pee eh ee eee pee pe pee pe pee meh eee oe pe ee ee eee ee ee ee ee ee 


De lw | ae oe eee eee we ele) wl we) ow) el ala) Eh wl wl wl ol wl al eleleleleoleleleleleleleleleleleleleleleclelelelelelelelal a) 


>< DK DK DK OK OE OE OE OOO OE OK OE OE OE OE OE OE OE OE OE OE OE OE OE OE OE OE OE OE OK OK OK OK OK OK OE OE OE OE OE OE OE OE OO OE OE OE OE OO 


0 

0 

0 
RERRTEED 
RRAEREREE 
eeeeeee 
REET 
REE 
RERKEEEE 
Rees 
RERKEEEE 
REERKEEE 
RRERERKE 
REERKEOK 
RRREREE 
REREHEKE 
RREKKERE 
RRERKEEK 
REREREKE 
REEKERE 
Reekeeee 
RARER 
RRRRERHK 
REEKKEEE 
RRERKEKE 
RREEKEHE 
REEKKREK 
REERKKEE 
REEKREEE 
REET 
REEREREE 
RERKKEEE 
RARER 
RERKEEKE 
REEKKEEE 
RRERKEEK 
REAR 
EERE 
RRRKKEEE 
REET 
RREKKEEE 
REE 
REEKKEEE 
REKKREEK 
RRR 
RaEeKKEEE 
eeeeeeee 
REEKREER 
RaeeREEEE 
eeeeeeee 
eeeeeeee 
eekekekent 
Reeeeeee 
geeeeeee 
eeeeeene 
Rearaeenet 
eearerenee 


ooo 
ooo 
ooo 
aor 
ures 
‘ee 
cack 
usu 
32323 0 ooov0on9o ~o Oo woo oooow wow owoowowo wow ooovono wo 
ooo awocadcac oc MUow ea @werwocaacacocecocacacoacocaecacorc 
aaa me £688 wm 6 Qo ae oo (om eeott me £m £e ttt oe tlre uml hae lr ll 
tet &@owmao « z> aa z40 CF} &M@MomMo «ee MOMS «Ke EDWOMQS « 
NNN et ee OT QaorZzvu tt oO FW Dm we eo eR eR OT ee OT ee OT 
18 eM cee ek SOO SWI MTOM rt St OM Et 8 St Ot Te 
VVOHCMOVUUuuKO SuTree § bee Fe YOO Mu eOVU wee OW Oe OVe ee oe OU OS 
aaa O0e0eeeeaeaeaeavwm wee § bs BO § RWS DOODOODDODODDOOCOCOOCCCoCoCMMDOO@OOOO®D 
Oa 0-aeet ae ee oe tOO OF 2 Ee ee & LMS Ot XK ee OE OE Oe OO OO Oe ee ee 
8 Oe OO OO Uh tt Be a tt tt tt tt at at at tt tt et tt =) 8 8) 8 A I A I 
MODVVVVOVVVVVYV YU VUVUVYVUYVU YU OO O00 O WU & & & be te te ee te te te te te te te te te te te et ee te 
PBA BSBA APB AA ADF 69 BF 0 WF EF 69 6% 6 91D B® WF 69 69 9 69 OF 69 09 68 &F 69 9 OF OF GF OF 9 25 BAA AHA A 6S DD 
tt ad Ot ad nd at Bd ad Bk nd ad nd ad ad dd ad ak ad ad ad ad sd Od ad ad ad ad nd ad Pd ad ad ad ad ad dd nd Pd nt ad nd Pd nd ad ad Pad nd Et ed Bnd md Om 
ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
Qaagncaaaaandaaadadgaadgadgaadagaadaadaaadgadadaaaadadaaadadgaaadadadaaaad. 


uh, math, much sae see mene see south seth, see seme, see see peme meee shh seth sand meth sh ssh sh sh, sen se seh sh seh seh eh seh, sh hath ssh sss, shh lsh lh tl sl 


OOOO OOCOOOOOSOOOOSOOSOOSOSOSOSOSSOSSOSOSOSOSOSOSOSOSOSOSOSSOOSOSOSOSOSOOSSOOSOSOOSOOCoOooO 


UK EK OK KK OK OK OK OE OE OE OE OE OE OE OK OE ON 


o VVVVVVVVVYU VU VYVUVVVIVVVVVVVVV VEU VVEO 
a @acaeancactacacacancacacaacacacacacaccea 
Se eee eee eee eee eee eee ee HOM RK WNOWST COOUNOWT? COOUNOWY ZOOUNOw YT st 
See eee ee ee kt eee eeeneeanee AP A at 8 ER ee ww eee BLL we eee 
Se eee eee eMeeeeeeezaezezeex es €OWODODOOWOWOOOOOWOWOWOOOWOCOOOWOOOOO woonolon°o 
See eee FOR ERE KEEKEEE EE FE QOOOOOOCOOOCOCOOCOCOCOCOCOS OOSOSOOSOSOOSOOSSOoSSoSS 
SRR HTOKRSRR HEHEHE EEE KEE KE QOODOOCOOCOOCOCOCOOCOCOCSOOCOOSOSOSOSOOOSOSOOSOSSOSOoOS 
Se eee eee FORKER REE EHEEEE ETE FE QOOOOOOOCOOCOOCOOCOSCOSCOSOSOOSOOSSOSOSSS Sooo 
See eee FORK EHEEE KE KQOODOOOCOCOCOCOCOCOCOCOCSOOSOSSSOSOSOSOOSOOSOSOSOOoOSoOoO 
See HORE EE EE KE QOOOOOOCOCOCOCOOOCOCOCOCOSOOOCOOOOOOOSOOOOOOO 
SOK MUM TNOR. DHOK— MUM TMNOR. DOOM MUM TNO. CO 
a 

'e0eee 
@Qeaaacacaacaacaacaacaancaacaacaaacacacaeec 
a ead & - eS eS SSS SSSSss3 
Loteteeok = wl woooo o & ttt tata ttt tat ttt 33333 
mx ttt tiwe to @Qocacecoc w QAaagaqgaagaadgadgaaaacaaaagaaaaaaaagaaaaa 
- &@Mom@ma mr-—-a m ©-titit me +t st tere eceepvueeeeeeevpeeceuueeee eo eees 
ee ee Ee 6 OMO «re LY NINN NINN NINN NINN NINE INO NIONIOIN 
De te tO Kh OT Oem Z pi trrrrrerrerereereereereeeeeeevede 
fad ptt map at ahh fut} Pte ere Et EPSPS Pe eee eee ee reeeeerrerreetret)et: 
ad ed el el oe ed oe oe et oer a. eee ee Oe Mb 2 oe a oa a eae a 4 0 4 4 4 eS eee eee ee eA ££ 55S 
Meteo etetetet = LIO Ob bb bb Bt ECP GGG00000020.0.0.0. 0.0.0.4 0.0.0 4 6.0.6 GG. do. oO 
9999992 eet rrcrcrrrcrrT teeceecevpeevreeeeeeepeeeeeee eee ee ees ‘a 
AAAAAAAAAADAADADADARABARAADAARARAAAAAAARAADAARAARADAAADAADS 


Et tt at at at a ak ad ad ad at dd dd dd Od ad dd dd dd nd td dd ddd Bd dd GG Gd On PG mG nd ad a OG 
att IH I I I I I I J I I JI I I J I I I I I I DB Ih I i dh i i I I I I 8 A SS 
2aqganaaanaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaadcad 


——————— 


hss 


Symbol“ table 


PLISFLTDABIT_R6 
Rieter R6 


MM Mmmm monn sor em ee ee 


TOCHA 
TOF 
TOF 
TOF 
TDF 
TOP 
TOV 
USH 
EEH 
TEA 
TEB 
-TEC 
TEF 
TEF 
TEF 
TEF 
TEP 
TEV 
TFIL 
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PLISGETSTRNG_R6 
PLI$GOTO 
PLISINDEXBIT 


N 
PLISOPTIONSMAIN 
PLISOPTMAIN_HND 
PLISOPTAAIN RET 


PLISOR 
PLISPICABIT rs 


PLIS$ TR 

PLISPICCHAR R6 
PLISPICFIXB~R6 
PLISPICFIXD-~R6 
PLISPICFLTB-R6 
PLISPICFLTD-R6 


PLISRT = RASTER. VECTOR 
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PLIS$R 

PLTSRES | GNAL 
PLISREW . ND 
PLISREW 


PLISSEARTH 
PLISSPACEBLOCK 
PLISSTOP_ PROG 


PLISVCHAPIC_R6 
PL. ISVCHAVCHA_R6 
PLISVERIFY 
PLISWRITE 


RITE 
PLISRT oa VECTOR 
ISRVRT_CND 
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| PLISRT_TRANSFER_VECTOR 1 
—Psect Synopsis 
esneae sen eae non aoem + 
! ;_Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
00000000 <¢ 0.) 00 ¢ OO.) NOPIC USR 
$$PL1_RT_TRANSFER_VECTOR OOOO006F2 ( 1778.) O1¢ 1.) PIC USR 
Fem wwowwwooeow oon coe eceoes + 


a a Rn 


Phase Page faults 
Initialization 10 
—— processing 188 
Syabol table sort 0 
Pass 2 81 
Symbol table output 25 
Psect synopsis output 1 
Cross-reference output 0 
Assembler run totals 338 


The working set Limit was 750 pages. 
26464 bytes (52 pages) of virtua 
There were 20 
260 source Lines were read in Pass 1, 


Macro Library name 


-$255$DUA28: CPLIRTL.OBJJPLIRTMAC.MLB; 1 


“$255$DUA28: CSYSLIBISTARLET. MLB; 2 
TOTALS (all libraries) 


pages of symbol table space allocated to hold 
producin 
7 pages of virtual memory were used to define 


CPU Time Elapsed Time 
00:00:00.08 00:00:00.67 
00:00:00.54 00:00:03.81 
00:00:04.23 00:00:12.50 
00:00:00.19 00:00:00.24 
00:00:01.27 00:00:03.95 
00:00:00.12 00:00:00.15 
00:00:00.02 00:00:00.02 
00:00:00.00 00:00:00.00 
00:00:06.46 00:00:21.34 


macros. 


88 GETS were required to define 2 macros. 


There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/LIS=LIS$:PLIVECTOR/OBJ=OBJ$:PLIVECTOR MSRC$:PLIVECTOR/UPDATE=(ENH$:PLIVECTOR) +LIBS:PLIRTMAC/LIB 


CON 
CON 


memory were used to buffer the intermediate code. 
217 non-local and 0 Local symbols. 
40 object records in Pass 


4 02:08:38 wh i Macro V04-00 Page 
4 11:40:21 PLIRTL.SRCIPLIVECTOR.MAR; 1 

ABS LCL wat + NOEXE NORD NOWRT NOVEC BYTE 
REL LCL SHR EXE RD NOWRT NOVEC LONG 
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SME 


BAS 


MTF 


LBF 


LIE 


